swiss 
library(ggmap)
## Loading required package: ggplot2
library(mapproj)
## Loading required package: maps
map_1 <- get_map(location = 'Swiss', zoom = 7, language = "zh-TW")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=Swiss&zoom=7&size=640x640&scale=2&maptype=terrain&language=zh-TW&sensor=false
## Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=Swiss&sensor=false
ggmap(map_1)

swiss map
library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
zoom = 10, language = "zh-TW")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=10&size=640x640&scale=2&maptype=terrain&language=zh-TW&sensor=false
ggmap(map)

swiss road map
library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
zoom = 10, language = "zh-TW", maptype = "roadmap")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=10&size=640x640&scale=2&maptype=roadmap&language=zh-TW&sensor=false
ggmap(map)

swiss road map
library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
zoom = 15, language = "zh-TW", maptype = "roadmap")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=15&size=640x640&scale=2&maptype=roadmap&language=zh-TW&sensor=false
ggmap(map)

swiss satellite
library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
zoom = 15, language = "zh-TW", maptype = "satellite")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=15&size=640x640&scale=2&maptype=satellite&language=zh-TW&sensor=false
ggmap(map)

swiss hybrid
library(ggmap)
library(mapproj)
map <- get_map(location = c(lon = 7.44744, lat = 46.94809),
zoom = 15, language = "zh-TW", maptype = "hybrid")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=46.94809,7.44744&zoom=15&size=640x640&scale=2&maptype=hybrid&language=zh-TW&sensor=false
ggmap(map)
